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EEEEEEEEEE Xx XX TTTTTTTITTT HH HH DDDDDDDD RRRRRRRR 
EEEEEEEEEE Xx XX TTTTTTTTTT HH HH DDDDDDDD RRRRRRRR 
EE aaa x TT HH HH DD DD RR RR 
EE XX XX TT HH HH DD DD RR RR 
EE XX = XX TT HH HH DD DD RR RR 
EE XX XX TT HH HH DD DD RR RR 
EEEEEEEE XX TT HHHHHHHHHH DD DD RRRRRRRR 
EEEEEEEE XX TT HHHHHHHHHH DD DD RRRRRRRR 
EE XX = XX TT HH HH DD DD RR RR 
EE XX = XK TT HH HH DD DD RR RR 
EE XX XX TT HH HH DD DD RR RR cove 
EE XX be TT HH HH DD DD RR RR cove 
EEEEEEEEEE Xx XX TT HH HH DDDDDDDD RR RR eee 
EEEEEEEEEE Xx XX TT HH HH DDODDDDD RR RR eeee 
LL II1I11 SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
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MODULE EXTHDR ( 
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YE BEEP 


BEGIN 


' 
MASSES ESSLOSIS ISS E SSE TT TT TTT Tec Tere Titre rier ricci t iii ici iii iitiiiiiiie, 


1 Stitt (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


Hd hal SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE - ae BS E 


® 

® 

® 

® 

* 

® 

i TIC $0 * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
* 

aa 

® 

® 

® 
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2 
5 054 | is 
§ 0 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ 0 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
; 09 A aeabisheneiebnndivraininienddmeninséinniiaiandaiebaabiatdiitiabiabibeseadaiiedmens 
; z lee | 
3 ! | 
3 FACILITY: FITIACP Structure Level 2 
; 03 ABSTRACT: | 
3 0037 i This routine creates an extension file header for the given file 
; 0038 ! header. 
0039 ! 
? Bped ENVIRONMENT: | 
4 004 i STARLET operating system, including privileged system services 
4 04 : and internal exec routines. | 
4 044 $ 
ged i 
4 boc? i 
: Bee AUTHOR: Andrew C. Goldstein, CREATION DATE: 27-Jul-1977 10:15 
2 9 MODIFIED BY: 
5 03¢ i v03-006 CDS0003 Christian D. Saether 14-Aug-1984 
5 0084 : Modify creation of extension fcbs. 
Q 055 i v03-005 LMP0286 L. Mark Pilant, 26-Jul-1984 13:24 | 
é Bnes ! Correct a broken CALL offset. 
05 ! 


<m 
Pa 
a 


oe ee ee eee ee eee eee S| 


Be Be Oe Be Oe OH Se Se Se Oe Be Se Se Ge Be SH Se Se Be SH Se SESH He Se Se SH Se OH Se Se Se Oe BH Se Se SH Se Se SH Se Se Se Se Se Se Sear ese Se Seas se sete tense 


= 
s 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


V03-004 ACG0415 Andrew C. G 
Set CLF_NOBUILD in FCB init 
already there. 


v03-003 ACG0408 Andrew C. Goldstein, 21-Mar-1984 


tion, since ACL is 


<m 
f= 


-1984 0 VAX-11 Bliss-32 V4.0-742 
=138% 99: $5 6 DISKSVMSMASTER:CF11X.SRCIEXTHOR.B32; ‘sy 
ein, 6-Apr-1984 20:59 

a 


Make APPLY_RVN end DEFAULT -RVN macros; also fix contting 


of RVN in Back Link. 


v03-002 CDS0002 Christian D. foother 18-Jan-1984 
Modify interface to DEFAULT_R 
v03-001 CDS0001 Christian D. Saethe 30-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 
v02-007 LMP0003 L. Mark Pilant, 11-Dec-1981 
Add suppport for cathedral windows. 
V02-006 ACG0167 Andrew C. Goldstein P-- pale -1980 


Previous revision history moved to f11B 


LIBRARY Breet JORART #1) 18, L52": 
REQUIRE ‘SRC$:FCPDEF.B32'; 
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-000 14-Sep-19 

4 GLOBAL ROUTINE EXTEND_HEADER (FIB, OLD HEADER, FCB, NEW_VOLUME, BLOCKS_NEEDED) : L_NORM = 
Bs 1+ 

8? FUNCTIONAL DESCRIPTION: 

89 This routine creates an extension file header for the given file 

90 header. 


CALLING SEQUENCE: 
EXTEND_HEADER (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG1: address of user FIB 
ARG2: address of present Last file header 
ARGS: address of present last FCB or 0 
ARGS: if not present, stay on present volume 
if present: 
if non-zero, force switch to given volume 
if zero, switch to any other volume 
ARGS: number of blocks needed on new volume 


0 IMPLICIT INPUTS: 

0 CURRENT_WINDOW: address of file window or 0 

0 PRIMARY_FCB: primary FCB of file 

4 CURRENT_VCB: address of VCB of volume 
OUTPUT PARAMETERS: 

8 NONE 

0 IMPLICIT OUTPUTS: 

0 NONE 


ROUTINE VALUE: 
address of new file header 
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: 

10 SIDE EFFECTS: 

i file header created, window turned, FCB created 

11 oo 

11 

11 BEGIN 

11 

11 MAP 

11 FIB : REF BBLOCK, ' user FIB arg 

118 OLD_HEADER : REF BBLOCK, ' file header arg 

1% FCB : REF BBLOCK; ! FCB arg 

121 LOCAL 

1 § OLD_FID : BBLOCK CFIDSC_LENGTH], ! file ID of old header 
1 EXT-FID : BBLOCK CFIDSC_LENGTH), ! file ID of new header 
124 VBN, ' index file VBN of new header 
125 LBN ' LBN of new header 

1 6 HEADER : REF BBLOCK, | buffer address of current file header 
' i NEW_HEADER : REF BBLOCK; ! address of new file header 


— 
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EXTHDR Sep-1984 00:27: VAX-11 Bliss-32 V4.0-742 Page 4 
we ee 1228 Sep ars 1 93:90:98 DISKSVMSMASTER:CF11X.SRCJEXTHDR.B32; 1 (2) 
BIND_COMMON; 
EXTERNAL ROUTINE 
INIT_FCB2 : L-NORM ! initialize FCB 
TURN WINDOW : LINORM “ADDRESSING nODE (GENERAL), ! update window 
CRSUM : LINORM, checksum file header 
SELECT VOLUME : L_NORM, solset new volume for use 
K _PIRTY : LINORM, : mark header for wr iteback 
CHARGE _QUO : LINORM, ' charge user's disk q 
CREATE_HEADER : L_NORM, ' create a new file 1D vend header 
SWITCH. VOLUM : LUNORM, ' switch context to desired volume 
READ_HEADER : LINORM, ! read file header 
CREATE FCB : LINORM; ! create an fcb. 


' Save the file ID of the current Last header. If the file is accessed, fix 
! up the FCB if it is not the primary and turn the window to include blocks 
from the header if possible. Then prepare the old header for write-back. 


CHSMOVE (FIDSC_LENGTH, OLD_HEADERCFH2$W_FIDJ, OLD FID); 
OLD_FIDCFIDSW_RVNJ = .OLD_FIDCFIDSW_RVNJ + .CURRERT “RW: 


teh -FCB NEQ 0 AND .FCB NEQ .PRIMARY_FCB 


BEGIN 
CLEANUP F LAGSCCL F_NOBUILD) = 1; 
ERNEL TALL CINIT=FCB2, .FCB, ‘OLD_ HEADER); 


: 


HE Ee A ee tte a a ey A 
MEUM OO OONAOUE WN OOONOUES WN 


et -WINDOW NEQ 0 
NOT .CURRENT_WINDOWCWCBSV_CATHEDRALJ 
N KERNEL. CALL (TURN_WINDOW, .CORRENT_WINDOW, .OLD_HEADER, .PRIMARY_FCBCFCBSL_FILESIZE], .FCBCFCBSL_STVBN) 


HECKSUM (.OLD_HEADER); 


Now create the new file ID. Map and read the corresponding block in the 
index file to extract the file sequence number; then punt the buffer. 
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109 09 09 08 SIN SINS NSO OO 


SERA LS SHVSALAV AS SSNSARAVASSSLS 


WYO URE NEQ 0 
AN” Fie F IBSV_EXACTJ 


NsuITcH VOLUME (.NEW_ VOLUME) 


END: SELECT_VOLUME (.FIB, .BLOCKS_NEEDED); 


NEW_HEADER = at He HEADER (EXT_FID); 
LBN"= .HEADER_ 


! Get back sen old file header, which may or may not have been written out 
' due to buffer pool thrashing. Check the segment number for overflow. 
i Plug in the header extension Linkage and write it. 
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6 
HOR 18-5 1984 00:27: VAX=11 Bliss=32 V4.0-742 P 5 
4-000 1 730p-1 382 99:45:98 DISKSVMSMASTER:CF1iX.SRCJEXTHDR.B32;1 > (2) 


; 197 11 $ : 

; 198 11 

; 199 1188 HEADER = say? HEADER 8 -F ID. sEGRD: 

; 200 1189 IF .HEADERLFH2$W_SEG NUM) GEQU 65535 

; 201 1190 THEN ERR_EXIT (SS$_HEADERFULL); 

; o¢ 131 CHSMOVE TFIDSC_LENGTH, EXT_FID, HEADERCFH2$W_EXT_FIDJ); 

; 204 1198 CHECKSUM (.HEADER); 

; 205 1194 2 MARK_DIRTY (.HEADER); 

3 06 1195 2 IF ACTUALCOUNT GEQu 4 

; 20 1339 THEN 

3 oS 119 BEGIN 

3 1196 SWITCH VOLUME (.NEW_FID_RVN); 

: sit 1200 the 

: \¢ 1201 ! We now fabricate a buffer and copy the old header into it, thus 

s ei 1 6 ! keeping the attributes. Note that we truncate the Ident area to only the 

: 8 : 87 file name, to gain map pointer space. 

; 216 1205 

3; ev 1 BS CHSMOVE (512, .HEADER, .NEW_HEADER); 

: si8 120 HEADER_LBN = .LBN; 

: 3h, 1608 FILE_HEADER = .NEW_HEADER; 

; 221 1210 CHSMOVE (FIDSC_LENGTH, EXT_FID, NEW_HEADERCFH2$W_FIDJ); 

; $s¢ 191] NEW_HEADERCFH2$B_FID_RVN] = 0; 

: 224 151 ! If this is the first extension header of the file, GOPy the file ID 

; 25 1214 ! of the primary into the back Link. Once there, it will propagate to 

: 226 1215 2 ! succeeding extension headers. 

3 der 1216 : 

; 228 1217 

3; 229 1218 IF .NEW_HEADERCFH2$W_SEG_NUM] EQL 0 

; 230 1219 THEN 

3 2s) 1530 BEGIN 

3 $38 1221 CHSMOVE (FIDSC_LENGTH, OLD_FID, NEW_HEADERCFH2$W_BACKLINK)); 

s 2 1666 3 DEFAULT_RVN (NEW _HEADERCFH2$W_BK_FIORVNJ, .CURRENT_RVN); 

: $3 1334 _ 

3 $3 1225 ! If we're already in an extension header, the RVN may have to be fixed 

3 see 1397 } up, if the new extension header is on a different volume. 

; 239 1228 

: 240 3 9 EL 
3; 241 1230 BEGIN 
3 og 1231 APPLY_RVN (NEW_HEADERCFH2$W_BK_FIDRVN), .OLD_FIDCFID$B_RVN)); 
: 344 : 3 DEFAULT _RVN (NEW_HEADERCFH2SW_BK_FIORVNJ, .CORRENT_RVN); 
; <2 ! i NEW_FID = 0; ! header extension is complete 

: 267 1 NEW_HEADERCFH2$W_SEG NUM) = .NEW_HEADERCFH2$W_SEG_NUM) + 1; | 
; 248 1 5 CHSFILL (0, FIDST FeRGiH NEW_HEADER OSUcEKT FDIS, | 
> 249 1 38 NEW_HEADERCFH2$B_MAP_INUSE) ="0; 

3; 250 1239 NEW_HEADERLFH2$V_CONTIG) = 8: 

3; 251 1240 NEW_HEADERLFH2$V_LOCKED] = 0; 

; 26 1241 NEW_HEADERCFH2$SB_MPOFFSET] = .NEW pe apeat rues IDOFFSET) + } 
3s @ 1242 (SBYTEOFFSET (FI2SW_REVISION)) / 2; 


H 6 

16-Sep-1984 227: VAX=-11 Bliss-32 V4.0-742 P 
1eree- 138s 99:95:98 Hee eul Eteach TaS shezexrHDR.e32:10%° «2s 
1 CEWRSU CHECKSUM)? / 2: 


($BYTEOFFSE & 
$W~CHECKSUM)) / 


NEW_HEADER ieee Acore std = 
SETJ = (SBYTEOFFSET (FH 


NEW_HEADERLFH2$B_RSOFF 
CHSFILL (0, 512 = .NEW_HEADERCFH2$B_MPOFFSETI]*2, .NEW_HEADER + .NEW_HEADERCFH2$B_MPOFFSETIJ*#2); 
Now charge the user for the new extension header. 


IF _ .FCB NEQ 0 
THEN | 
NEWFCB : REF BBLOCK; 


MIPIPOPOPONMPTOPorororny» 
QUIT 
OODONOUWE 


4 Be See Ge ee Ge Ge Ge Geese Fe Ge Ge ee 


1243 
1244 
1528 
134) 
‘aE 
: i CHARGE _QUOTA (.NEW_HEADERCFH2$L_FILEOWNER), 1, BITLIST (QUOTA_CHECK, QUOTA_CHARGE)); 
re ! 38 Finally create an extension FCB if the file is accessed. 
66 1255 2. 
67 1256 
68 1257 
; 269 1258 BEGIN 
' 270 1259 LOCAL 
: e271 1260 
; si¢ 1261 
3 ar : 6¢ NEWFCB = CREATE_FCB (.NEW_HEADER); 
: 275 1264 ; NEWFCB CFCBSL_LOCKBASIS] = .PRIMARY_FCB CFCBSL_LOCKBASIS); 
: 276 1693 FCB CFCBSL_EXFCB) = .NEWFCB; 
; 277 1266 3 CURRENT_VCB CVCB$W_TRANS) = .CURRENT_VCB CVCBSW_TRANS] + 1; 
s 278 1267 § END; 
; 279 1268 
; 280 1269 2 RETURN (.NEW_HEADER); 
: 281 1270 2 
; 282 1271 1 END; ! end of routine EXTEND_HEADER 
-TITLE EXTHDR 
-IDENT \V04-000\ 
-EXTRN INIT_FCB2, TURN_WINDOW 
eEXTRN CHEC SELECT_VOLUME 


RSUM 
“EXTRN MARK_DIRTY, CHARGE QUOTA 
SEXTRN CREATE HEADER, SWITCH VOLUME 
“EXTRN READ_HEADER, CREATE_FCB 


-PSECT S$CODES,NOWRT,2 


01FC 00000 .ENTRY EXTEND_HEADER, Save R2,R3,R4,R5,R6,R7,R8 ; 1072 
10 ¢ 9008 SUBL2 ; 
5 08 AC 060 000 MOVL.  OLD’HEADER, RO + 1149 
08 AE 08 AO 06 28 00009 MOVC3 #6,~8(RO), OLD_FID ; 

OC AE AO AA A O00F ADDW2  -94(BASE). OLDTFID+4 : 1150 

0c AC OD 6 14 TSTL FCB > 1152 
16 13 00017 BEQL =s«s1$ ; 
08 AA 0c AC Di 00019 CMPL FCB, 8(BASE) ; 
F 13 0 3 BEQL : 

01 =A 8 88 00 BISB2 #8, 1(BASE) : 1155 
08 AC DD 00024 PUSHL OLO_HEADER : 1156 
0C AC DD 7 PUSHL FCB : 

00006 cf 02 F A CALLS #2, INIT_FCB2 F 
OC AA D F 1$: MOVL 12(BASE)7 R1 : 1159 
1F 13 00033 BEQL 2$ ; 
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EXTHDR 16-Sep-1984 VAX*11 Bliss-32 V4.0-742 7 
v04-000 14-Sep-1 1382 99: $6; 98 DISKSVMSMASTER:CF11X.SRCJEXTHDR.B32; 429 * (2) 
1A 0B Al 06 £0 00035 BBS #6, 11(R1), 2$ : 1160 
50 eae’ Fe 09 A MOVL FCB, RO + 1161 
A pp 003 PUSHL  44(RO) : 
50 AA D 041 MOVL B(BASE), RO : 
AO DD 00045 PUSHL 56(RO) : 
08 AC DD 00048 PUSHL OLD_HEADER : | 
51 DD O48 PUSHL R : 
000000006 00 04 FB 00040 CALLS #4, TURN WINDOW : 
08 AC DD 00054 2s: PUSHL  OLB_HEADER > 1163 
00006 CF 01 FB 0097 CALLS #1, CHECKSUM : 
04 $¢ 91 0005¢ C(MPB CCAP), 4 + 1169 
1F 005 BLSSU 4 ; 
10 AC D5 61 TSTL | NEW_VOLUME + 1172 
12 13 00064 BEQL ; 
50 04 AC D0 00066 MOVL 1B, RO + 1173 
OA 0 AO E9 0006A BLBC 32(RO), 3 3 
10 AC OD O06 PUSHL  NEW_VOLUME + 1175 
00006 CF 07 FB 00071 CALLS #1, SWITCH_VOLUME : 
0B 11 00076 BRB : 
14 AC DD 00078 38: PUSHL BLOCKS_NEEDED + 1177 
04 AC OD 00078 PUSHL ; 
00006 CF 02 FB O007E UALLS #2, SELECT_VOLUME ; 
5E DD 00083 4$: PUSHL SP + 1180 
00006 CF 07 FB 00085 CALLS . CREATE_HEADER : 
56 50 DO O008A MOVL : 
58 BO AA DO 0008D MOVL <=8 RO OCNRSES LBN + 1181 
0C AC DD 00091 PUSHL FCB : 1188 
0c AE 9F 00094 PUSHAB FID ; 
00006 CF 02 FB 00097 CALLS oo READ_HEADER ; 
57 50 pO 0009¢ MOVL a ; 
FFFF BF 04 A? Bi 0009F CMPW 4(HEADER), #65535 + 1189 
05 1F OOOAS BLSSU5$ ; 
08c8 8F BF OO0A7 CHMU #2248 : 1190 
04 OO0AB RET 3 
OE A7 6E 06 28 OOOAC 5S: MOVC3 #6, EXT_FID, 14(HEADER) + 1191 
57 DD 000B1 PUSHL 4H + 1193 
00006 CF Qt FB 000B3 CALLS #1, CHECKSUM ; 
7 DD 00088 PUSHL > 1194 
00006 CF 01 FB O00BA CALLS #1, MARK_DIRTY ; 
04 6C 91 000BF CMPBs«CAP), #4 : 1195 
08 iF 900¢e BLSSU  6$ ; 
AC AA DD 000C PUSHL 784 (BASE) : 1198 
00006 CF 1 FB 000C7 CALL SW1TCH_ VOLUME F 
66 67 0200 8F 28 b0¢¢ 6$: MOVC asta, (HEADER), (NEW_HEADER) : 1206 
BO AA 8 DO 000d MOVL -80 (BASE) + 1207 
04 AA 56 DO 00006 MOVL NEU HEADER, 4 (BASE) : 1208 
08 Ab 6E 06 28 OOODA MOVC3 #6, EXT FIO, 8(NEW_HEADER) + 1210 
oC A6 94 OOODF CLRB 12 (NEW_READER) + 1211 
4 Abd BS 000E TSTW 4 (NEW_ READER) : 1218 
08 if O0E BNEQ ; 
42 6 08 AE 0 é OOE MOVC3 #6, OLD_FID, 66(NEW_HEADER) : 12 1 
18 11 OO0ED BRB + 1202 
46 A6 95 OQOOEF 7$ TSTB ZO (NEW, HEADER) : 1231 
0 12 0 F2 BNEQ : 
46 Ab Oc AE 9 F4 MOVB i FID+4, 70(NEW HEADER) : 
01 46 Ad 91 OOOFD BS CMPB (REW_HEADER), #T ; 
08 12 000FD BNEQ : 
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Routine Base: $CODE$ + 0000 
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PSECT SUMMARY 


Attributes 
EXE,NOSHR, 


Bytes 


CON,NOPIC ,ALIGN(2) 


REL, 


LCL, 


RD, 


384 NOVEC,NOWRT, 


: ; | 
v04-000 HESS0-1984 99:90:08 YAMCHLABAsteA2c¥4i2cZA2sennaoe.oses429" ca 


<7 


Library Statistics 


3; Elapsed Time: 00:40.5 
3 Lines/CPU Min: 360 

; Lexemes/CPU-Min: 45077 

3 canary Used: 283 pages 
; Compila 


tion Complete 


; cowccscs Syabols eoeceeee Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28: CSYSLIBILIB.L32;1 18619 44 0 1000 00:01.9 | 
H COMMAND QUALIFIERS 

° BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:EXTHDR/OBJ=OBJ$:EXTHDR MSRC$:EXTHDR/UPDATE=(ENH$:EXTHDR) 

; Size: 384 code + 0 data bytes 

; Run Time: 00:21.2 


. 
e 
. 
o 
- 
. 
+ 
a 
© 
o 
. 
o 
. 
. 
. 
a 
. 
a 
. 
. 
. 
o 
. 
. 
. 
. 
. 
. 
. 
oO 
. 
e 
. 
° 
. 
° 
. 
* 
. 
° 
o 
e 
~ 
° 
7 
. 
. 
. 
. 
° 
. 
e 
. 
J 
. 
° 
. 
e 
° 
o 
. 
oe 
. 
e 
. 
o 
. 
o 
. 
eo 
. 
° 
. 
o 
. 
a 
. 
e 
. 
. 
+ 
e 
. 
° 
7 
° 
. 
a 
. 
o 
. 
. 
7 
e 
. 
7 
. 
. 


a ll cl el el ee ee el cel ce el el ee el eel 


L EQUIPMENT CORPOR 


D A 
C DENTIAL AND PROPRIE 


mn170 AH-BT13A-SE IGIT 
{VY VAX/VMS V4.0 ONFI 


NN 


